(print-region): Make pipes use binary mode if file is binary.

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 122c9d6e295ed3a166b0fe3d4bbcbb5b7c92cac9..349561936427eee449bea88b473c86e6bca633b9 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -99,6 +99,10 @@ The variable `lpr-page-header-program' specifies the program to use.")
   ;; and it seems to annoying to do for that MIPS system.
   (let ((name (concat (buffer-name) " Emacs buffer"))
        (title (concat (buffer-name) " Emacs buffer"))
+       ;; On MS-DOS systems, make pipes use binary mode if the
+       ;; original file is binary.
+       (binary-process-input buffer-file-type)
+       (binary-process-output buffer-file-type)
        (width tab-width)
        switch-string)
     (save-excursion